home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / TwoRings.dxr / 00066_waste cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.6 KB  |  53 lines
  1. property spriteNum
  2. global waste, equal, hotcard, points, foundation
  3.  
  4. on beginSprite
  5.   sprite(spriteNum).member = "block"
  6. end
  7.  
  8. on mouseDown
  9.   if member(sprite(spriteNum).memberNum).name <> "block" then
  10.     puppetSound(3, "pickcard")
  11.     sprite(spriteNum).moveableSprite = 1
  12.     sprite(spriteNum).loc = the mouseLoc
  13.     sprite(spriteNum).locZ = spriteNum + 1000
  14.     if waste.cards.count > 1 then
  15.       sprite(12).visible = 1
  16.       sprite(12).loc = waste.cards[waste.cards.count - 1].location
  17.       sprite(12).member = waste.cards[waste.cards.count - 1].membername
  18.     end if
  19.   end if
  20. end
  21.  
  22. on mouseUp
  23.   if member(sprite(spriteNum).memberNum).name <> "block" then
  24.     if equal = 1 then
  25.       puppetSound(3, "pickcard")
  26.       sprite(spriteNum).visible = 0
  27.       sprite(spriteNum).moveableSprite = 0
  28.       sprite(spriteNum).loc = waste.getlastcard().location
  29.       sprite(spriteNum).locZ = spriteNum
  30.       sprite(hotcard).member = waste.getlastcard().membername
  31.       foundation[makesymbol(hotcard)].addCard(new(script("card"), hotcard))
  32.       waste.cards.deleteAt(waste.cards.count)
  33.       points = points + 10
  34.       checkwin()
  35.       checklose()
  36.       if waste.cards.count > 0 then
  37.         sprite(spriteNum).member = waste.getlastcard().membername
  38.       else
  39.         sprite(spriteNum).member = "block"
  40.       end if
  41.       sprite(spriteNum).visible = 1
  42.     else
  43.       puppetSound(3, "dropcard")
  44.       sprite(spriteNum).moveableSprite = 0
  45.       sprite(spriteNum).loc = waste.getlastcard().location
  46.       sprite(spriteNum).locZ = spriteNum
  47.     end if
  48.     sprite(12).visible = 0
  49.     checkwin()
  50.     checklose()
  51.   end if
  52. end
  53.